|
300
|
Can I add any break or divider line
Procedure OnCreate
Forward Send OnCreate
Set ComScrollBySingleLine to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "Item 1" to Nothing
Variant h
Get ComAdd of hoItems Nothing to h
Set ComItemBreak of hoItems h to OLESingleLine
Set ComSelectableItem of hoItems h to False
Set ComItemHeight of hoItems h to 6
Get ComAdd of hoItems "Item 3" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
299
|
Can I change the default border of the tooltip, using your EBN files
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Set ComToolTipWidth to 364
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexToolTipAppearance to |CI$1000000
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "tootip" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComToolTip of hoColumn to "this is a tooltip assigned to a column"
Send Destroy to hoColumn
Send Destroy to hoColumns
End_Procedure
|
|
298
|
Can I change the background color for the tooltip
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Set ComToolTipWidth to 364
Set ComBackground OLEexToolTipBackColor to (RGB(255,0,0))
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "tootip" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComToolTip of hoColumn to "this is a tooltip assigned to a column"
Send Destroy to hoColumn
Send Destroy to hoColumns
End_Procedure
|
|
297
|
Does the tooltip support HTML format
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Set ComToolTipWidth to 364
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "tootip" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComToolTip of hoColumn to "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>column</fgcolor>"
Send Destroy to hoColumn
Send Destroy to hoColumns
End_Procedure
|
|
296
|
Can I change the forecolor for the tooltip
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Set ComToolTipWidth to 364
Set ComBackground OLEexToolTipForeColor to (RGB(255,0,0))
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "tootip" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComToolTip of hoColumn to "this is a tooltip assigned to a column"
Send Destroy to hoColumn
Send Destroy to hoColumns
End_Procedure
|
|
295
|
Can I change the foreground color for the tooltip
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Set ComToolTipWidth to 364
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "tootip" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComToolTip of hoColumn to "<fgcolor=FF0000>this is a tooltip assigned to a column</fgcolor>"
Send Destroy to hoColumn
Send Destroy to hoColumns
End_Procedure
|
|
294
|
Is there any function to limit the height of the items when I display it using multiple lines
Procedure OnCreate
Forward Send OnCreate
Set ComScrollBySingleLine to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAdd of hoItems "Cell 1" to h
Set ComCaption of hoItems h 1 to "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
Set ComCellSingleLine of hoItems h 1 to False
Set ComItemMaxHeight of hoItems h to 48
Send Destroy to hoItems
End_Procedure
|
|
293
|
Why I cannot center my cells in the column
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to OLEexAllLines
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Default" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLECenterAlignment
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "item 1" to Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 "item 2" to Nothing
Send Destroy to hoItems1
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComAdd of hoItems2 "item 3" to Nothing
Send Destroy to hoItems2
End_Procedure
|
|
292
|
How can I align the cell to the left, center or to the right
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to OLEexAllLines
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellHAlignment of hoItems (ComAdd(hoItems,"left")) 0 to OLELeftAlignment
Set ComCellHAlignment of hoItems (ComAdd(hoItems,"center")) 0 to OLECenterAlignment
Set ComCellHAlignment of hoItems (ComAdd(hoItems,"right")) 0 to OLERightAlignment
Send Destroy to hoItems
End_Procedure
|
|
291
|
How do I apply HTML format to a cell
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComHTMLPicture "p1" to "c:\exontrol\images\zipdisk.gif"
Set ComHTMLPicture "p2" to "c:\exontrol\images\auction.gif"
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAdd of hoItems "The following item shows some of the HTML format supported:" to h
Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
Get ComAdd of hoItems "<br>text icons <img>1</img>, <img>2</img>, ... pictures <img>p1</img>, <img>p2</img> <br><br>text <b>bold</b>, <i>italic</i>, <u>underline</u>, <s>strikeout</s>, ...<br><dotline>and so on...<br> <a>anchor</a> or <a2>hyperlink</a><br><fgcolor=FF0000>fgcolor</fgcolor> or <bgcolor=00FF00>bgcolor</bgcolor> " to h
Set ComCaptionFormat of hoItems h 0 to OLEexHTML
Set ComCellSingleLine of hoItems h 0 to False
Send Destroy to hoItems
End_Procedure
|
|
290
|
How can I change the font for a cell
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "std font" to Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComCaptionFormat of hoItems1 (ComAdd(hoItems1,"this <font tahoma;12>is a bit of text with</font> a different font")) 0 to OLEexHTML
Send Destroy to hoItems1
End_Procedure
|
|
289
|
How can I change the font for a cell
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "default font" to Nothing
Send Destroy to hoItems
Variant f
Get Comcreateobject "StdFont" to f
Set ComName to "Tahoma"
Set ComSize to 12
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComCellFont of hoItems1 (ComAdd(hoItems1,"new font")) 0 to f
Send Destroy to hoItems1
End_Procedure
|
|
288
|
How can I change the font for entire item
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "default font" to Nothing
Send Destroy to hoItems
Variant f
Get Comcreateobject "StdFont" to f
Set ComName to "Tahoma"
Set ComSize to 12
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComItemFont of hoItems1 (ComAdd(hoItems1,"new font")) to f
Send Destroy to hoItems1
End_Procedure
|
|
287
|
How do I vertically align a cell
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to OLEexAllLines
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "MultipleLine" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellSingleLine to False
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "VAlign" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAdd of hoItems "This is a bit of long text that should break the line" to h
Set ComCaption of hoItems h 1 to "top"
Set ComCellVAlignment of hoItems h 1 to OLETopAlignment
Get ComAdd of hoItems "This is a bit of long text that should break the line" to h
Set ComCaption of hoItems h 1 to "middle"
Set ComCellVAlignment of hoItems h 1 to OLEMiddleAlignment
Get ComAdd of hoItems "This is a bit of long text that should break the line" to h
Set ComCaption of hoItems h 1 to "bottom"
Set ComCellVAlignment of hoItems h 1 to OLEBottomAlignment
Send Destroy to hoItems
End_Procedure
|
|
286
|
How can I change the position of an item
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "Item 1" to Nothing
Get ComAdd of hoItems "Item 2" to Nothing
Set ComItemPosition of hoItems (ComAdd(hoItems,"Item 3")) to 0
Send Destroy to hoItems
End_Procedure
|
|
285
|
How do I find an item
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "Item 1" to Nothing
Get ComAdd of hoItems "Item 2" to Nothing
Get ComAdd of hoItems "Item 3" to Nothing
Set ComItemBold of hoItems (ComFindItem(hoItems,"Item 2",0,Nothing)) to True
Send Destroy to hoItems
End_Procedure
|
|
284
|
How can I insert a hyperlink or an anchor element
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCaptionFormat of hoItems (ComAdd(hoItems,"Just an <a1>anchor</a> element ...")) 0 to OLEexHTML
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComCaptionFormat of hoItems1 (ComAdd(hoItems1,"Just another <a2>anchor</a> element ...")) 0 to OLEexHTML
Send Destroy to hoItems1
End_Procedure
|
|
283
|
How do I find the handle of the item based on its index
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAdd of hoItems "Item 1" to h
Get ComAdd of hoItems "Item 2" to Nothing
Get ComAdd of hoItems "Item 3" to Nothing
Set ComItemBold of hoItems 1 to True
Send Destroy to hoItems
End_Procedure
|
|
282
|
How can I find the cell being clicked in a radio group
Procedure OnCreate
Forward Send OnCreate
Set ComMarkSearchColumn to False
Set ComSelBackColor to (RGB(255,255,128))
Set ComSelForeColor to (RGB(0,0,0))
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Get ComAdd of hoColumns2 "C3" to Nothing
Send Destroy to hoColumns2
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAdd of hoItems "Cell 1" to h
Set ComCaption of hoItems h 1 to "Radio 1"
Set ComCellHasRadioButton of hoItems h 1 to True
Set ComCellRadioGroup of hoItems h 1 to 1234
Set ComCaption of hoItems h 2 to "Radio 2"
Set ComCellHasRadioButton of hoItems h 2 to True
Set ComCellRadioGroup of hoItems h 2 to 1234
Set ComCellState of hoItems h 1 to 1
Send ComCellChecked of hoItems 1234 i c
Set ComCellBold of hoItems i c to True
Send Destroy to hoItems
End_Procedure
|
|
281
|
Can I let the user to resize at runtime the specified item
Procedure OnCreate
Forward Send OnCreate
Set ComScrollBySingleLine to True
Set ComDrawGridLines to OLEexAllLines
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComItemAllowSizing of hoItems (ComAdd(hoItems,"resizable item")) to True
Get ComAdd of hoItems "not resizable item" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
280
|
How can I change the size ( width, height ) of the picture
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAdd of hoItems "Item 1" to h
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
Set ComCellPicture of hoItems h 0 to (vPicture)
Set ComCellPictureWidth of hoItems h 0 to 24
Set ComCellPictureHeight of hoItems h 0 to 24
Set ComItemHeight of hoItems h to 32
Get ComAdd of hoItems "Item 2" to h
Variant vPicture1
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture1
Set ComCellPicture of hoItems h 0 to (vPicture1)
Set ComItemHeight of hoItems h to 48
Send Destroy to hoItems
End_Procedure
|
|
279
|
How can I find the number or the count of selected items
Procedure OnCreate
Forward Send OnCreate
Set ComSingleSel to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAdd of hoItems "Item 1" to h
Get ComAdd of hoItems "Item 2" to Nothing
Get ComAdd of hoItems "Item 3" to Nothing
Set ComSelectItem of hoItems (ComFirstVisibleItem(hoItems)) to True
Set ComSelectItem of hoItems (ComNextVisibleItem(hoItems,(ComFirstVisibleItem(hoItems)))) to True
Get ComAdd of hoItems (ComSelectCount(hoItems)) to Nothing
Send Destroy to hoItems
End_Procedure
|
|
278
|
How do I unselect an item
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAdd of hoItems "Item 1" to h
Get ComAdd of hoItems "Item 2" to Nothing
Get ComAdd of hoItems "Item 3" to Nothing
Set ComSelectItem of hoItems h to False
Send Destroy to hoItems
End_Procedure
|
|
277
|
How do I find the selected item
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAdd of hoItems "Item 1" to h
Get ComAdd of hoItems "Item 2" to Nothing
Get ComAdd of hoItems "Item 3" to Nothing
Set ComSelectItem of hoItems h to True
Set ComItemBold of hoItems (ComSelectedItem(hoItems,0)) to True
Send Destroy to hoItems
End_Procedure
|
|
276
|
How do I un select all items
Procedure OnCreate
Forward Send OnCreate
Set ComSingleSel to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "Item 1" to Nothing
Get ComAdd of hoItems "Item 2" to Nothing
Get ComAdd of hoItems "Item 3" to Nothing
Send ComUnselectAll of hoItems
Send Destroy to hoItems
End_Procedure
|
|
275
|
How do I select multiple items
Procedure OnCreate
Forward Send OnCreate
Set ComSingleSel to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "Item 1" to Nothing
Get ComAdd of hoItems "Item 2" to Nothing
Get ComAdd of hoItems "Item 3" to Nothing
Set ComSelectItem of hoItems (ComFirstVisibleItem(hoItems)) to True
Set ComSelectItem of hoItems (ComNextVisibleItem(hoItems,(ComFirstVisibleItem(hoItems)))) to True
Send Destroy to hoItems
End_Procedure
|
|
274
|
How do I select all items
Procedure OnCreate
Forward Send OnCreate
Set ComSingleSel to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "Item 1" to Nothing
Get ComAdd of hoItems "Item 2" to Nothing
Get ComAdd of hoItems "Item 3" to Nothing
Send ComSelectAll of hoItems
Send Destroy to hoItems
End_Procedure
|
|
273
|
How do I select an item
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "Item 1" to Nothing
Get ComAdd of hoItems "Item 2" to Nothing
Get ComAdd of hoItems "Item 3" to Nothing
Set ComSelectItem of hoItems (ComNextVisibleItem(hoItems,(ComFocusItem(hoItems)))) to True
Send Destroy to hoItems
End_Procedure
|
|
272
|
Can I display a button with some picture or icon inside
Procedure OnCreate
Forward Send OnCreate
Set ComHTMLPicture "p1" to "c:\exontrol\images\zipdisk.gif"
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAdd of hoItems "Cell 1" to h
Set ComCaption of hoItems h 1 to " Button <img>p1</img> "
Set ComCaptionFormat of hoItems h 1 to OLEexHTML
Set ComCellHAlignment of hoItems h 1 to OLERightAlignment
Set ComCellHasButton of hoItems h 1 to True
Set ComItemHeight of hoItems h to 48
Send Destroy to hoItems
End_Procedure
|
|
271
|
Can I display a button with some picture or icon inside
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAdd of hoItems "Cell 1" to h
Set ComCaption of hoItems h 1 to " Button <img>1</img> "
Set ComCaptionFormat of hoItems h 1 to OLEexHTML
Set ComCellHAlignment of hoItems h 1 to OLERightAlignment
Set ComCellHasButton of hoItems h 1 to True
Send Destroy to hoItems
End_Procedure
|
|
270
|
Can I display a button with some icon inside
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAdd of hoItems "Cell 1" to h
Set ComCaption of hoItems h 1 to " <img>1</img> "
Set ComCaptionFormat of hoItems h 1 to OLEexHTML
Set ComCellHAlignment of hoItems h 1 to OLERightAlignment
Set ComCellHasButton of hoItems h 1 to True
Send Destroy to hoItems
End_Procedure
|
|
269
|
How can I assign multiple icon/picture to a cell
Procedure OnCreate
Forward Send OnCreate
Set ComHTMLPicture "p1" to "c:\exontrol\images\zipdisk.gif"
Set ComHTMLPicture "p2" to "c:\exontrol\images\auction.gif"
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAdd of hoItems "text <img>p1</img> another picture <img>p2</img> and so on" to h
Set ComCaptionFormat of hoItems h 0 to OLEexHTML
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\colorize.gif`)" to vPicture
Set ComCellPicture of hoItems h 0 to (vPicture)
Set ComItemHeight of hoItems h to 48
Get ComAdd of hoItems "Item 2" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
268
|
How can I assign an icon/picture to a cell
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAdd of hoItems "Item 1" to h
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
Set ComCellPicture of hoItems h 0 to (vPicture)
Set ComItemHeight of hoItems h to 48
Get ComAdd of hoItems "Item 2" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
267
|
How can I assign multiple icons/pictures to a cell
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAdd of hoItems "Item <img>1</img> 1, <img>2</img>, ... and so on " to h
Set ComCaptionFormat of hoItems h 0 to OLEexHTML
Send Destroy to hoItems
End_Procedure
|
|
266
|
How can I assign multiple icons/pictures to a cell
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAdd of hoItems "Item 1" to h
Set ComCellImages of hoItems h 0 to "1,2,3"
Send Destroy to hoItems
End_Procedure
|
|
265
|
How can I assign an icon/picture to a cell
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAdd of hoItems "Item 1" to h
Set ComCellImage of hoItems h 0 to 1
Set ComCellImage of hoItems (ComAdd(hoItems,"Item 2")) 0 to 2
Set ComCellImage of hoItems (ComAdd(hoItems,"Item 3")) 0 to 3
Send Destroy to hoItems
End_Procedure
|
|
264
|
How can I display a button inside the item or cell
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAdd of hoItems "Cell 1" to h
Set ComCaption of hoItems h 1 to " Button 1 "
Set ComCellHAlignment of hoItems h 1 to OLERightAlignment
Set ComCellHasButton of hoItems h 1 to True
Get ComAdd of hoItems "Cell 2" to h
Set ComCaption of hoItems h 1 to " Button 2 "
Set ComCellHAlignment of hoItems h 1 to OLECenterAlignment
Set ComCellHasButton of hoItems h 1 to True
Send Destroy to hoItems
End_Procedure
|
|
263
|
How can I change the state of a radio button
Procedure OnCreate
Forward Send OnCreate
Set ComMarkSearchColumn to False
Set ComSelBackColor to (RGB(255,255,128))
Set ComSelForeColor to (RGB(0,0,0))
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Get ComAdd of hoColumns2 "C3" to Nothing
Send Destroy to hoColumns2
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAdd of hoItems "Cell 1" to h
Set ComCaption of hoItems h 1 to "Radio 1"
Set ComCellHasRadioButton of hoItems h 1 to True
Set ComCellRadioGroup of hoItems h 1 to 1234
Set ComCaption of hoItems h 2 to "Radio 2"
Set ComCellHasRadioButton of hoItems h 2 to True
Set ComCellRadioGroup of hoItems h 2 to 1234
Set ComCellState of hoItems h 1 to 1
Send Destroy to hoItems
End_Procedure
|
|
262
|
How can I assign a radio button to a cell
Procedure OnCreate
Forward Send OnCreate
Set ComMarkSearchColumn to False
Set ComSelBackColor to (RGB(255,255,128))
Set ComSelForeColor to (RGB(0,0,0))
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Get ComAdd of hoColumns2 "C3" to Nothing
Send Destroy to hoColumns2
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAdd of hoItems "Cell 1" to h
Set ComCaption of hoItems h 1 to "Radio 1"
Set ComCellHasRadioButton of hoItems h 1 to True
Set ComCellRadioGroup of hoItems h 1 to 1234
Set ComCaption of hoItems h 2 to "Radio 2"
Set ComCellHasRadioButton of hoItems h 2 to True
Set ComCellRadioGroup of hoItems h 2 to 1234
Set ComCellState of hoItems h 1 to 1
Send Destroy to hoItems
End_Procedure
|
|
261
|
How can I change the state of a checkbox
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAdd of hoItems "Cell 1" to h
Set ComCaption of hoItems h 1 to "Check Box"
Set ComCellHasCheckBox of hoItems h 1 to True
Set ComCellState of hoItems h 1 to 1
Send Destroy to hoItems
End_Procedure
|
|
260
|
How can I assign a checkbox to a cell
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAdd of hoItems "Cell 1" to h
Set ComCaption of hoItems h 1 to "Check Box"
Set ComCellHasCheckBox of hoItems h 1 to True
Send Destroy to hoItems
End_Procedure
|
|
259
|
How can I display an item or a cell on multiple lines
Procedure OnCreate
Forward Send OnCreate
Set ComScrollBySingleLine to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAdd of hoItems "Cell 1" to h
Set ComCaption of hoItems h 1 to "This is bit of text that's shown on multiple lines"
Set ComCellSingleLine of hoItems h 1 to False
Send Destroy to hoItems
End_Procedure
|
|
258
|
How can I assign a tooltip to a cell
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAdd of hoItems "Cell 1" to h
Set ComCaption of hoItems h 1 to "tooltip"
Set ComCellToolTip of hoItems h 1 to "This is bit of text that's shown when the user hovers the cell"
Send Destroy to hoItems
End_Procedure
|
|
257
|
How can I associate an extra data to a cell
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAdd of hoItems "Cell 1" to h
Set ComCaption of hoItems h 1 to "Cell 2"
Set ComCellData of hoItems h 1 to "your extra data"
Send Destroy to hoItems
End_Procedure
|
|
256
|
How do I enable or disable a cell
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAdd of hoItems "Cell 1" to h
Set ComCaption of hoItems h 1 to "Cell 2"
Set ComCellEnabled of hoItems h 1 to False
Send Destroy to hoItems
End_Procedure
|
|
255
|
How do I change the cell's foreground color
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAdd of hoItems "Cell 1" to h
Set ComCaption of hoItems h 1 to "Cell 2"
Set ComCellForeColor of hoItems h 1 to (RGB(255,0,0))
Send Destroy to hoItems
End_Procedure
|
|
254
|
How do I change the visual effect for the cell, using your EBN files
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAdd of hoItems "Cell 1" to h
Set ComCaption of hoItems h 1 to "Cell 2"
Set ComCellBackColor of hoItems h 1 to |CI$1000000
Send Destroy to hoItems
End_Procedure
|
|
253
|
How do I change the cell's background color
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAdd of hoItems "Cell 1" to h
Set ComCaption of hoItems h 1 to "Cell 2"
Set ComCellBackColor of hoItems h 1 to (RGB(255,0,0))
Send Destroy to hoItems
End_Procedure
|
|
252
|
How do I change the caption or value for a particular cell
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCaption of hoItems (ComAdd(hoItems,"Cell 1")) 1 to "Cell 2"
Send Destroy to hoItems
End_Procedure
|
|
251
|
How do I retrieve the focused item
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "Item 1" to Nothing
Get ComAdd of hoItems "Item 2" to Nothing
Get ComAdd of hoItems "Item 3" to Nothing
Set ComItemBold of hoItems (ComFocusItem(hoItems)) to True
Send Destroy to hoItems
End_Procedure
|
|
250
|
How do I enumerate the visible items
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAdd of hoItems "Item 1" to h
Get ComAdd of hoItems "Item 2" to h
Set ComItemBold of hoItems (ComFirstVisibleItem(hoItems)) to True
Set ComItemBold of hoItems (ComNextVisibleItem(hoItems,(ComFirstVisibleItem(hoItems)))) to True
Send Destroy to hoItems
End_Procedure
|
|
249
|
How can I make an item unselectable, or not selectable
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAdd of hoItems "unselectable - you can't get selected" to h
Set ComSelectableItem of hoItems h to False
Get ComAdd of hoItems "selectable" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
248
|
How can I hide or show an item
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAdd of hoItems "hidden" to h
Set ComItemHeight of hoItems h to 0
Set ComSelectableItem of hoItems h to False
Get ComAdd of hoItems "visible" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
247
|
How can I change the height for all items
Procedure OnCreate
Forward Send OnCreate
Set ComDefaultItemHeight to 32
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "One" to Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 "Two" to Nothing
Send Destroy to hoItems1
End_Procedure
|
|
246
|
How do I change the height of an item
Procedure OnCreate
Forward Send OnCreate
Set ComScrollBySingleLine to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComItemHeight of hoItems (ComAdd(hoItems,"height")) to 128
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 "enabled" to Nothing
Send Destroy to hoItems1
End_Procedure
|
|
245
|
How do I disable or enable an item
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComEnableItem of hoItems (ComAdd(hoItems,"disabled")) to False
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 "enabled" to Nothing
Send Destroy to hoItems1
End_Procedure
|
|
244
|
How do I display as strikeout a cell
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellStrikeOut of hoItems (ComAdd(hoItems,"strikeout")) 0 to True
Send Destroy to hoItems
End_Procedure
|
|
243
|
How do I display as strikeout a cell or an item
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCaptionFormat of hoItems (ComAdd(hoItems,"gets <s>strikeout</s> only a portion of text")) 0 to OLEexHTML
Send Destroy to hoItems
End_Procedure
|
|
242
|
How do I display as strikeout an item
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComItemStrikeOut of hoItems (ComAdd(hoItems,"strikeout")) to True
Send Destroy to hoItems
End_Procedure
|
|
241
|
How do I underline a cell
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellUnderline of hoItems (ComAdd(hoItems,"underline")) 0 to True
Send Destroy to hoItems
End_Procedure
|
|
240
|
How do I underline a cell or an item
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCaptionFormat of hoItems (ComAdd(hoItems,"gets <u>underline</u> only a portion of text")) 0 to OLEexHTML
Send Destroy to hoItems
End_Procedure
|
|
239
|
How do I underline an item
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComItemUnderline of hoItems (ComAdd(hoItems,"underline")) to True
Send Destroy to hoItems
End_Procedure
|
|
238
|
How do I display as italic a cell
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellItalic of hoItems (ComAdd(hoItems,"italic")) 0 to True
Send Destroy to hoItems
End_Procedure
|
|
237
|
How do I display as italic a cell or an item
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCaptionFormat of hoItems (ComAdd(hoItems,"gets <i>italic</i> only a portion of text")) 0 to OLEexHTML
Send Destroy to hoItems
End_Procedure
|
|
236
|
How do I display as italic an item
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComItemItalic of hoItems (ComAdd(hoItems,"italic")) to True
Send Destroy to hoItems
End_Procedure
|
|
235
|
How do I bold a cell
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellBold of hoItems (ComAdd(hoItems,"bold")) 0 to True
Send Destroy to hoItems
End_Procedure
|
|
234
|
How do I bold a cell or an item
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCaptionFormat of hoItems (ComAdd(hoItems,"gets <b>bold</b> only a portion of text")) 0 to OLEexHTML
Send Destroy to hoItems
End_Procedure
|
|
233
|
How do I bold an item
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComItemBold of hoItems (ComAdd(hoItems,"bold")) to True
Send Destroy to hoItems
End_Procedure
|
|
232
|
How do I change the foreground color for the item
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComItemForeColor of hoItems (ComAdd(hoItems,"Item")) to (RGB(255,0,0))
Send Destroy to hoItems
End_Procedure
|
|
231
|
How do I change the visual appearance for the item, using your EBN technology
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComItemBackColor of hoItems (ComAdd(hoItems,"Item")) to |CI$1000000
Send Destroy to hoItems
End_Procedure
|
|
230
|
How do I change the background color for the item
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComItemBackColor of hoItems (ComAdd(hoItems,"Item")) to (RGB(255,0,0))
Send Destroy to hoItems
End_Procedure
|
|
229
|
How do I associate an extra data to an item
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComItemData of hoItems (ComAdd(hoItems,"item")) to "your extra data"
Send Destroy to hoItems
End_Procedure
|
|
228
|
How do I programmatically edit a cell
// Occurs after data in the current cell is edited.
Procedure OnComAfterCellEdit Integer llItemIndex Integer llColIndex String llNewCaption
Forward Send OnComAfterCellEdit llItemIndex llColIndex llNewCaption
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCaption of hoItems llItemIndex llColIndex to llNewCaption
Send Destroy to hoItems
End_Procedure
// Occurs if the edit operation is canceled.
Procedure OnComCancelCellEdit Integer llItemIndex Integer llColIndex Variant llReserved
Forward Send OnComCancelCellEdit llItemIndex llColIndex llReserved
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComCaption of hoItems1 llItemIndex llColIndex to llReserved
Send Destroy to hoItems1
End_Procedure
// Occurs when the user presses and then releases the left mouse button over the list control.
Procedure OnComClick
Forward Send OnComClick
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Send ComEdit of hoItems2 (ComFocusItem(hoItems2)) 0
Send Destroy to hoItems2
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComAllowEdit to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems3
Get ComItems to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Get ComAdd of hoItems3 "" to Nothing
Send Destroy to hoItems3
End_Procedure
|
|
227
|
How can I ensure or scroll the control so the item fits the control's client area
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant v
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "item" to v
Send Destroy to hoItems
Variant h
Move v to h
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Send ComEnsureVisibleItem of hoItems1 h
Send Destroy to hoItems1
End_Procedure
|
|
226
|
How can I remove or delete all items
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "removed item" to Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Send ComRemoveAll of hoItems1
Send Destroy to hoItems1
End_Procedure
|
|
225
|
How can I remove or delete an item
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant v
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "removed item" to v
Send Destroy to hoItems
Variant h
Move v to h
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Send ComRemove of hoItems1 h
Send Destroy to hoItems1
End_Procedure
|
|
224
|
How can I add or insert an item
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCaption of hoItems (ComAdd(hoItems,"Cell 1")) 1 to "Cell 2"
Variant h
Get ComAdd of hoItems "Cell 3" to h
Set ComCaption of hoItems h 1 to "Cell 4"
Send Destroy to hoItems
End_Procedure
|
|
223
|
How can I add or insert an item
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "new item" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
222
|
How can I get the columns as they are shown in the control's sortbar
Procedure OnCreate
Forward Send OnCreate
Variant v
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComItemBySortPosition of hoColumns 0 to v
Send Destroy to hoColumns
Variant var_Object
Move v to var_Object
End_Procedure
|
|
221
|
How can I access the properties of a column
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "A" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComItem of hoColumns1 "A" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComHeaderBold of hoColumn to True
Send Destroy to hoColumn
Send Destroy to hoColumns1
End_Procedure
|
|
220
|
How can I remove all the columns
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Send ComClear of hoColumns
Send Destroy to hoColumns
End_Procedure
|
|
219
|
How can I remove a column
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Send ComRemove of hoColumns "A"
Send Destroy to hoColumns
End_Procedure
|
|
218
|
How can I get the number or the count of columns
Procedure OnCreate
Forward Send OnCreate
Variant v
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComCount of hoColumns to v
Send Destroy to hoColumns
Variant var_Count
Move v to var_Count
End_Procedure
|
|
217
|
How can I change the font for all cells in the entire column
Procedure OnCreate
Forward Send OnCreate
Variant f
Get Comcreateobject "StdFont" to f
Set ComName to "Tahoma"
Set ComSize to 12
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "1" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComFont of hoConditionalFormat to f
Set ComApplyTo of hoConditionalFormat to OLEexFormatToColumns
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems 0 to Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 1 to Nothing
Send Destroy to hoItems1
End_Procedure
|
|
216
|
How can I change the background color for all cells in the column
Procedure OnCreate
Forward Send OnCreate
Variant v
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Get ComAdd of hoConditionalFormats "1" Nothing to v
Send Destroy to hoConditionalFormats
Variant var_ConditionalFormat
Move v to var_ConditionalFormat
Set ComBackColor to (RGB(255,0,0))
Set ComApplyTo to OLEexFormatToColumns
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems 0 to Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 1 to Nothing
Send Destroy to hoItems1
End_Procedure
|
|
215
|
How can I change the foreground color for all cells in the column
Procedure OnCreate
Forward Send OnCreate
Variant v
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Get ComAdd of hoConditionalFormats "1" Nothing to v
Send Destroy to hoConditionalFormats
Variant var_ConditionalFormat
Move v to var_ConditionalFormat
Set ComForeColor to (RGB(255,0,0))
Set ComApplyTo to OLEexFormatToColumns
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems 0 to Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 1 to Nothing
Send Destroy to hoItems1
End_Procedure
|
|
214
|
How can I show as strikeout all cells in the column
Procedure OnCreate
Forward Send OnCreate
Variant v
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Get ComAdd of hoConditionalFormats "1" Nothing to v
Send Destroy to hoConditionalFormats
Variant var_ConditionalFormat
Move v to var_ConditionalFormat
Set ComStrikeOut to True
Set ComApplyTo to OLEexFormatToColumns
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems 0 to Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 1 to Nothing
Send Destroy to hoItems1
End_Procedure
|
|
213
|
How can I underline all cells in the column
Procedure OnCreate
Forward Send OnCreate
Variant v
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Get ComAdd of hoConditionalFormats "1" Nothing to v
Send Destroy to hoConditionalFormats
Variant var_ConditionalFormat
Move v to var_ConditionalFormat
Set ComUnderline to True
Set ComApplyTo to OLEexFormatToColumns
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems 0 to Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 1 to Nothing
Send Destroy to hoItems1
End_Procedure
|
|
212
|
How can I show in italic all data in the column
Procedure OnCreate
Forward Send OnCreate
Variant v
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Get ComAdd of hoConditionalFormats "1" Nothing to v
Send Destroy to hoConditionalFormats
Variant var_ConditionalFormat
Move v to var_ConditionalFormat
Set ComItalic to True
Set ComApplyTo to OLEexFormatToColumns
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems 0 to Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 1 to Nothing
Send Destroy to hoItems1
End_Procedure
|
|
211
|
How can I bold the entire column
Procedure OnCreate
Forward Send OnCreate
Variant v
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Get ComAdd of hoConditionalFormats "1" Nothing to v
Send Destroy to hoConditionalFormats
Variant var_ConditionalFormat
Move v to var_ConditionalFormat
Set ComBold to True
Set ComApplyTo to OLEexFormatToColumns
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems 0 to Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 1 to Nothing
Send Destroy to hoItems1
End_Procedure
|
|
210
|
How can I display a computed column and highlight some values that are negative or less than a value
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "A" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "B" to Nothing
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn
Get ComAdd of hoColumns2 "(A+B)*1.19" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "(%0 + %1) * 1.19"
Send Destroy to hoColumn
Send Destroy to hoColumns2
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCaption of hoItems (ComAdd(hoItems,1)) 1 to 2
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComCaption of hoItems1 (ComAdd(hoItems1,10)) 1 to 20
Send Destroy to hoItems1
Variant v
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Get ComAdd of hoConditionalFormats "%2 > 10" Nothing to v
Send Destroy to hoConditionalFormats
Variant var_ConditionalFormat
Move v to var_ConditionalFormat
Set ComBold to True
Set ComForeColor to (RGB(255,0,0))
Set ComApplyTo to |CI$2
End_Procedure
|
|
209
|
Can I display a computed column so it displays the VAT, or SUM
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "A" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "B" to Nothing
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn
Get ComAdd of hoColumns2 "(A+B)*1.19" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "(%0 + %1) * 1.19"
Send Destroy to hoColumn
Send Destroy to hoColumns2
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCaption of hoItems (ComAdd(hoItems,1)) 1 to 2
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComCaption of hoItems1 (ComAdd(hoItems1,10)) 1 to 20
Send Destroy to hoItems1
End_Procedure
|
|
208
|
How can I show a column that adds values in the cells
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "A" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "B" to Nothing
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn
Get ComAdd of hoColumns2 "A+B" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "%0 + %1"
Send Destroy to hoColumn
Send Destroy to hoColumns2
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCaption of hoItems (ComAdd(hoItems,1)) 1 to 2
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComCaption of hoItems1 (ComAdd(hoItems1,10)) 1 to 20
Send Destroy to hoItems1
End_Procedure
|
|
207
|
Is there any function to filter the control's data as I type, so the items being displayed include the typed characters
Procedure OnCreate
Forward Send OnCreate
Variant v
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Filter" to v
Send Destroy to hoColumns
Variant var_Column
Move v to var_Column
Set ComFilterOnType to True
Set ComDisplayFilterButton to True
Set ComAutoSearch to OLEexContains
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "Canada" to Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 "USA" to Nothing
Send Destroy to hoItems1
End_Procedure
|
|
206
|
Is there any function to filter the control's data as I type, something like filter on type
Procedure OnCreate
Forward Send OnCreate
Variant v
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Filter" to v
Send Destroy to hoColumns
Variant var_Column
Move v to var_Column
Set ComFilterOnType to True
Set ComDisplayFilterButton to True
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "Canada" to Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 "USA" to Nothing
Send Destroy to hoItems1
End_Procedure
|
|
205
|
How can I programmatically filter a column
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Filter" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDisplayFilterButton of hoColumn to True
Set ComFilterType of hoColumn to OLEexNonBlanks
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems Nothing to Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 "not empty" to Nothing
Send Destroy to hoItems1
Send ComApplyFilter
End_Procedure
|
|
204
|
How can I show or display the control's filter
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Filter" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDisplayFilterButton of hoColumn to True
Send Destroy to hoColumn
Send Destroy to hoColumns
End_Procedure
|
|
203
|
How can I customize the items being displayed in the drop down filter window
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Custom Filter" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDisplayFilterButton of hoColumn to True
Set ComDisplayFilterPattern of hoColumn to False
Set ComCustomFilter of hoColumn to "Excel Spreadsheets (*.xls )||*.xls|||Word Documents||*.doc|||Powerpoint Presentations||*.pps|||Text Documents (*.log,*.txt)||*.txt|*.log"
Set ComFilterType of hoColumn to OLEexPattern
Set ComFilter of hoColumn to "*.xls"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "excel.xls" to Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 "word.doc" to Nothing
Send Destroy to hoItems1
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComAdd of hoItems2 "pp.pps" to Nothing
Send Destroy to hoItems2
Variant voItems3
Get ComItems to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Get ComAdd of hoItems3 "text.txt" to Nothing
Send Destroy to hoItems3
Send ComApplyFilter
End_Procedure
|
|
202
|
How can I change the order or the position of the columns in the sort bar
Procedure OnCreate
Forward Send OnCreate
Set ComSortBarVisible to True
Set ComSortBarColumnWidth to 48
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "C1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComSortOrder of hoColumn to OLESortAscending
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "C2" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComSortOrder of hoColumn1 to OLESortDescending
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComItem of hoColumns2 "C2" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComSortPosition of hoColumn2 to 0
Send Destroy to hoColumn2
Send Destroy to hoColumns2
End_Procedure
|
|
201
|
How do I arrange my columns on multiple levels
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "S" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 32
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Level 2" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComLevelKey of hoColumn1 to 1
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComAdd of hoColumns2 "Level 3" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComLevelKey of hoColumn2 to 1
Send Destroy to hoColumn2
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Variant voColumn3
Get ComAdd of hoColumns3 "Level 4" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComLevelKey of hoColumn3 to 1
Send Destroy to hoColumn3
Send Destroy to hoColumns3
Variant voColumns4
Get ComColumns to voColumns4
Handle hoColumns4
Get Create (RefClass(cComColumns)) to hoColumns4
Set pvComObject of hoColumns4 to voColumns4
Variant voColumn4
Get ComAdd of hoColumns4 "Level 1" to voColumn4
Handle hoColumn4
Get Create (RefClass(cComColumn)) to hoColumn4
Set pvComObject of hoColumn4 to voColumn4
Set ComLevelKey of hoColumn4 to "2"
Send Destroy to hoColumn4
Send Destroy to hoColumns4
Variant voColumns5
Get ComColumns to voColumns5
Handle hoColumns5
Get Create (RefClass(cComColumns)) to hoColumns5
Set pvComObject of hoColumns5 to voColumns5
Variant voColumn5
Get ComAdd of hoColumns5 "Level 2" to voColumn5
Handle hoColumn5
Get Create (RefClass(cComColumn)) to hoColumn5
Set pvComObject of hoColumn5 to voColumn5
Set ComLevelKey of hoColumn5 to "2"
Send Destroy to hoColumn5
Send Destroy to hoColumns5
Variant voColumns6
Get ComColumns to voColumns6
Handle hoColumns6
Get Create (RefClass(cComColumns)) to hoColumns6
Set pvComObject of hoColumns6 to voColumns6
Variant voColumn6
Get ComAdd of hoColumns6 "Level 3" to voColumn6
Handle hoColumn6
Get Create (RefClass(cComColumn)) to hoColumn6
Set pvComObject of hoColumn6 to voColumn6
Set ComLevelKey of hoColumn6 to "2"
Send Destroy to hoColumn6
Send Destroy to hoColumns6
Variant voColumns7
Get ComColumns to voColumns7
Handle hoColumns7
Get Create (RefClass(cComColumns)) to hoColumns7
Set pvComObject of hoColumns7 to voColumns7
Variant voColumn7
Get ComAdd of hoColumns7 "Level 4" to voColumn7
Handle hoColumn7
Get Create (RefClass(cComColumn)) to hoColumn7
Set pvComObject of hoColumn7 to voColumn7
Set ComLevelKey of hoColumn7 to "2"
Send Destroy to hoColumn7
Send Destroy to hoColumns7
Variant voColumns8
Get ComColumns to voColumns8
Handle hoColumns8
Get Create (RefClass(cComColumns)) to hoColumns8
Set pvComObject of hoColumns8 to voColumns8
Variant voColumn8
Get ComAdd of hoColumns8 "E" to voColumn8
Handle hoColumn8
Get Create (RefClass(cComColumn)) to hoColumn8
Set pvComObject of hoColumn8 to voColumn8
Set ComWidth of hoColumn8 to 32
Send Destroy to hoColumn8
Send Destroy to hoColumns8
End_Procedure
|